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グラフィックス j と rDC 
2 本 立です 0 
2 本と も、 キティ •レコードの ア 
ル パム 『みゆき メモリアル (LP 

•38MS  0056/57、 テープ ，38C 
S  0056)j に 収» されて いるもの 0 
すでに LP、 テープを お持ちの 方 


も 多いで しょう。 

みゆきち やん フアンで MS X マ 
ガ ジン フアン、 なんてい う 人は 今 
すぐ トライ。 ただし、 脱 明を よく 
読んで くださいね 0 


みゆき •グラフィックス 
(RAM32 キロ パイ ト以 

この プログラムを 実行す るた めには R  AM 
容量が 32 キロ パ イト 以上 必要です 〇  16 キ ロバ 
イト 実装の マシンを お持ちの 方は、 拡强 RA 
M カート リツ ジ などで R  A  M を 32 キロバイト 
まで 拡强 してから 入力を 開始して ください。 

これは r みゆき j の 主人公を 描く プロ グラ 
ムで す。 画面は 4 パターン。 ひとつの 画面を 
描き 終る と 実行が 止まります から、 [ItopI 
以外の キーを I 回 だけ 押してく ださい。 画面 
が クリアされ >  次の 絵を 描き 始めます。 4 画 


•入力 方法 

入力に ついて 特に むずかしい 点は あり ませ | 
ん が、 データ 文の 入カ ミ ス には 十分 注意して \ 


ください。 特に カンマと ピリオド (顿 点) 


RUN  | RETURN | で 実行し ます。 あとは 
最初に 脱 明した ように、 描き 終わる と 実行 停 
止、 I  STOP 丨 以外の キーを 押す こと によつ t j 
次の 面へ 進む、 という 動作に な ります。  I 


ものを、 そのまま プリントアウトし、 
した ものです。 うまく _ 
し ない 場合は 入カ ミ スの 可能性が 非 


常に 大きい ので 注意して 入力 

■Syntax  error が 出て し i つた 場 
合、 文法の 誤り だけでは なく、 索激の 
SL カツコの 政 ユー ザー峨 の 定義 


チ ツク してく ださい 0 
■Illegal  function  call  の 粉、 ： 
ラー 行 だけでなく、 その 行で 使用 


■基本的に Syntax  error  と  Illegal 
function  call の 場合、 部では 質 
M にお 答えいた しません。 


DOORS 

(RAM16 キ a パイ ト feLbiW) 

若松み ゆき と 鹿 烏み ゆきは ドア だらけの 部 
屋に とじ 込められて います。 あなたは 若松み 
ゆき を搡 つて 周囲の ドアの どこかに 明れ てい 
る 若松 真人を 探さな く てはいけ ません。 鹿 島 
みゆき も 彼を 探して います。 若松み ゆきは 先 
に 彼に 出合う こと がで きる でしょう か。 
•入力 方法 

この ブロ グラムは RAM が 16 キ 〇 バイト 以 
上 実装 さ れた M  S  X マシ ン なら どの マシンで 
も 動^します。 ％  # て 始まる リマーク 文;^ い 
くつ かあります が、 入力が めんどうな 人は 
* だけ 入力して おいて 下さい。 その 行す 
ベて を 消して しまう と エラ ーが 出る 場合が あ 
ります。 また I 68(Mt~I 800 行の 長い データ 文 
は 間違いの な い よ ゲ に。 

•実行 方法 _ 

RUN 「RETURN] て 案 行を 開始し ます。 


実行を 開始す ると *Wait  only  7-seconds  f/0  ! 
の 表示に 統 いて、 ゲーム フイ ー ル ドと 若松み 
ゆきの 顔が あらわれ ^ 指 承に 従って スペース | 
キーを 押す と ゲーム 開始です。 

カーソル キーで 若松み ゆきを 動かし、 ドア 
の 前 （きちっと 場所を あわせて） で スペース j 
キーを 押します。 チャイムが 鳴って、 もし 若 
松 真人が いれば ウエ ディ ング マーチが 流れ あ I 
なた の 勝ち。 ただし、 コンピュータが 動かし j 
ている 鹿 島み ゆき 力洗 に 彼を 見つけて しまう j 
と 負けです。 

スペース キーを 押す タイ ミ ング は； 3 ンビ g 
一夕との 競争です。 鹿 島み ゆきが チャイムを 
鳴らして いる M は あなたが スペース キーを 押 
しても 受けつ けられません。 

画面が 白く なる のは 鹿 島み ゆきが チャイム j 
を 押した 時で、 黒くなる のは 若松み ゆき （あ 
なた） が チャイムを 押した 時です。 


❷ 


みゆ吉 •グラフ イツ クス 


み ゆ 去 •グラフ イツ クス 


1,12.3,11.3 

2110  DATA  12.3,11 .5,12.4,11 .5,12.3,11 .6,12.5,11 .5,12.6,11 .7,12.6,12.2,12.7,12.3 
2120  DATA  12.7,11 .7,12.6,11 .5,12.4,11 .4,12.4,11 .1 ,-1 ,-1 ,12.4,12.6,12.4,12.7,12.5 
,12.7 

2130  DATA  12.7,12.3,12.5,12.5,12.4,12.6,-1 ,-1 ,12,13.2,12.4,13.1 .12.5,13.12.9,12. 
9 

2140  DATA  12.9,12.9,-1 ，- 1 , 12 .5 , 13 .8 , 12 .5 , 13 .9 , 12 .8 , 13 .95 , 12 .9 , 13 .7 , 12 .7 f  13 .8 

,150  DATA  12.5,13.8,-1 ，- 1 ,6.2,12.8,6.1 ,13-5,6.5,14.2,7.5,14.7,8,14.8 

2160  DATA  8.7,14.7,8.7,14.4,8,14.1 ,7.7,14.2,7,14,6.6,13.5,6.2,12.8 

2170  DATA  -1 ，- 99, 5, 5,-1 ，- 1 

2180  SCREEN2 , 2 : RESTORE320 

2190  A$=A$+A$+A^+A$ :A^=A$+A$+At 

2200  FORI= 日 T023 : PDKE&HEA0® , 日日 SPOKE&HEA01 ,32+1 : A$=USR <A$) sNEXT 

2210  VY=0 sVX*0 : GOSUB2750 : VY=19 sVX=0 :GOSUB2750 s V Y  =0 s V X =208 : GOSUB2750 sVY=19 s VX=208 
: GOSUB2750 

2220  RESTORE320  s G0SUB2 1 0 
2230  RESTORE2820  S60SUB2780 
2240  A^=  "  0F090FCS90F090F09  " 

2250  IFINKEY 和"" THEN2250ELSESE=SE+1 : GOTO 180 

2260  SCREEN2 , 2 : RESTORE 日 1 0 

2270  A$=A^+A$+A^+A$+At :A$=A^+A$ 

2280  FORI=6TO15sPOKE&HEA00,88sPOKE&HEA0i ,32+1 : A$=USR(A$) : NEXT 

^290  POKE&HE A00 , 0 : POKE&HE A0 1 , 32 : Z$= " 4444444444444444 n :Z$=Z$+Z$+Z$+Z$ :Z$=Z$+Z 拿： Z 拿 
=USR(Z 拿） sZ 本 =USR(Z$> :Z$=USR(Z$) sZ*=USR(Z$> 

2300  Z*=" 4455445544554455"  :Z^=Z4：+Z^+Z$+Z$  :Z»=Z«：+Z$： :Z»=USR  (Z$)  :Zt=USR(Z$)  : Z$=USR( 
Z*) :Z*=USR(Z$) 

2310  Z " 5555555555555555 " :Z^=Z^+Z$：+Z$+Z^sZ^=Z^+Z^r Z ^=USR < Z* ) : Z$=USR(Z$)  :Z$=USR( 
Z#) sZ$=USR(Z$) 

2320  "5577557755775577" s  Z$=Z*+Z^+Z$+Z$ : l^=T$+2* s  Z^=USR'<  Z^) :Z$=USR(Z$) :Z$=USR( 

Z 拿） :Z$=USR(Z$) 

2330  Z *= " 7777777777777777 n  sZ^=Z^+Z»+2^+Z^:Z^=Z$+Z$sZ «=USR ( Z 4： )  :Z$=USR(Z$) :Z$=USR( 
Z$) sZ$«USR(Z$) 

2340  Z 和" 77FF77FF77FF77FF":Z$=Z$+Z$+Z 本 +Z$:Z$=Z“Z$:Z$=USR<Z 幻 :Z$=USR(Z$)  : Z$=USR< 
Z*> : Z$=USR<Z$) 

2350  POKE&HEA0® , 0 : POKE&HE AO 1 , 53 : Z#= " 77FF77FF77FF77FF M : Z$=Z 本 +Z$+Z 掌 +Z 拿： Z 拿 =Z 多 +Z 章： Z 拿 
=USR(Z$) :Z$=USR<Z$) : Z$=USR(Z$) :Z$=USR<Z 本） 

2360  Z 和" 777777777777777 7"  :Z$=Z •本 +Z$+Z：f+Z 章： Z 章 =ZI+Z 本： Z$=USR<Z$>  :Z$=USR(Z$)  : Z#=USR( 
Z$) : Z 本 =USR<Z$〉 

2370  Z*=" 5577557755775577" :Z^=Z^+Z^+Z$+Z$:Z^=Z$+Z«sZ^=USR(Z^) :Z 和 USR(Z 幻 ：Z$=USR( 
Z 本） ： Z$=USR(Z 拿） 

2380  LINE (84 , 160) - ( 184 , 191 ) , 15 ,BF : GOSUB  210 
2390  CIRCLE (128, 178) ,5 , 1 1 :PAINT ( 128 , 178) ,11 


み ゆ $ •グラフ イツ クス 


2400  RESTORE2870 : GOSUB2780 

2410  • READSX , S Y , A 本  s  POKE&HEA00 ,SX: POKE&HEA01 , &H39: A$=USR(A$) 

2420  A$= " 0F090F090F090F09 " 

2430  •  FLOWER 

2440  I F I NKE Y 拿 = "  THEN2250E し SESE=SE+ 1  s  GOTO 180 
2450  SCREEN2 , 2 : RESTORE 1 270 

2460  A$=A$+A$+A^+A^+A»+A^+A«+A$+A*+A*+A^+A$+A$ 

2470  F0RI*2T023 :POKE8<HEA00 ,72  sPOKE&HEACl ,32+1 : A^=USR(A$)  sNEXT 

2480  1=32  sFORJ=0TD3 :POKE8<HEA00 ,0  sPOKE&HEAOl , I :Z$=" 6666666666666666" : Z^=Z$+Z*+Z$ : 
Z$=Z^+Z*s Z$=USR ( Z$)  : POKE&HEA 00,208 : Z 和 USR  < It) 

2490  POKE&HEA00 ,0 :POKE&HEA01 ,1  +  1 s Z$= " 6688668866886688 " : Z^=Zt+Z$+Z$ :Z$=Z^+Z»  sZ«=U 
SR(Z$)  : POKE&HEAO® , 20 日： Z^=USR <  Z 章） 

2500  POKE&HEA00 ,0 : POKE&HEA01 ， 1+2 : Z$= "日日 日 888888 日 88888 8" sZ$=Z#+Z$+Z$ sZ$=Z$+Z» :Z$*U 
SR(Z$) SPOKE&HEA00 ,208s Z$=USR ( Z 多〉 

2510  POKE&HE A00 , 0 : POKE&HE A0 1 , 1 +3  s  Z " 8899889988998899 M s Z4：=Zt+Z^+Z$ s Z*=Z*+Z$ : Z$=U 
SR(Z$) :POKE&HEA00 ,208 sZ$=USR (ZC) 

2520  POKE&HEA00 ,0 :POKE&HEA01 , I +4 : Z«= " 9999999999999999 " :Z^=Z$+Z$+Z$ :Z«=Z^+Z^ sZ$*U 
SR(Z$) : POKE&HEA0® , 208: Zt=USR <Z$) 

2530  PQKE&HE A00 , 0  s POKE&HEA0 1 , 1 +5  s  " 99FF99FF99FF99FF " s  Z$=Z^+Z#+Z*  s  Z*=Z*+Z$  s  Z$=U 

SR ( Z 奉〉 : POKE&HEA00 ,208s Z$=USR (Z*) 

2540  1=1+6 :NEXT 
2550  GOSUB  210 
2560  RESTORE2960 : G0SUB278® 

2570  A$= " 0F090F090F090F09 " 

2580  ^  FLOWER 

2590  IF I NKE Y 拿= " " THEN2250ELSESE=SE+1 : GOTO 180 
2600  SCREEN2 , 2 : RESTORE 1 790 

2610  A 拿 多 +A$+A 本 +A$+A$+A^+ A$ + A 多 + A$+ A 本 

2620  LINE(0, 24)-(255, 47) , 12 ,BF :LINE (0 ,72) - (8® ,95) ,2 ,BF :LINE ( 180 ,72) - (255 ,95) ,2,B 
FsLINE (0,120) -(8®, 144)  ,3 ,BF sLINE < 180 , 12®) - <255 , 144)  ,3,BF 
2630  FORI =8T023 s POKE&HEAO0 ,80 : POKE&HEA01 , 32+1 : A$=USR (At)  sNEXT 

2640  POKE&HE A00 ,176: POKE&HEA® 1 ,55 :A^=USR ( A^)  : A$=RIBHT^ ( A$：  ,96)  : POKE&HEA0 1 ,54  s POKE 
&HEA00 ,208 : A$=USR  <A$) 

2650  A$-STRING$ (16,"0") : F0RI=4T016 : POKE&HEA00 ,225 : POKE&HEA01 , I : A$：=USR (A*) sNEXT 
2660  POKE&HEA00 , 233: POKE8<HEA0 1,13: A^=USR (At) 

2670  GOSUB  210:Z^=,,froT<^T  あり 於う" +CHF^  <  129) 

2680  OPEN "grp:" AS# 1 

2690  F0RI=4TQ16 sPSET (225 ,1*8)  , POINT  (255,1*8)  :PRINT#1 ，MID$ ( Z 本， 1-3 ， 1 >  sNEXT 
2700  PSET<233,104)  , POINT  (233,104)  sPRINT#l  ,n，'  "  : CLOSE 
2710  RESTORE2980  s 6DSUB27 日® 

2720  A$= " 0F090F090F090F09 " 

2730  7  FLOWER 
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みゆ吉 •グラフ イツ クス 


DOORS 


S  r.P™lN0 sC0L0R15  »4  !CLS : keyoff  : locate 

0  CLE AR300 , &HE8FF s D I MF ( 1 7 )  ,P(17)  .KF<17)  ! 
!0  ONERRQRGOTO1880 

10  P0KE&HF85A , I NT (TIME/256) : P0KE&HF85B ,T] 
0  DATA24,8,24,40 ,24,72,24,104,24 ,136,56. 


190  DEFUSR=&H 1 56 : OPEN" GRP s"AS#l 

200  GOSUB1 450s GOSUB 1810: GOSUB1 320 

210  INTERVAL  OFF 

220  WB=&H 44 

230  DEFUSR1=&HEA0® 

240  GOSUB 1 570: GOSUB 1 650 

加，1,3 刊聊1 旧， ⑽ ，如 山侧磁 m 
270  GOSUB 1 570: GOSUB 1150: GOSUB 1 650 

ITE6  ^62!62) <3® ,30> » 1 »3 spUTSPRITE4 , (62 ,30) , 1 ,4 sPUTSPRITES , (30 ,62) , 
290  *  I F I NKE  Y  i=  '• "  THEN22 

3?S  : ぼぽ ぽ，1 ，細 TSPRITEB， (62,62) バ ，S 

33»  - /IfInKeJ；^.：THEN26, 山9: PU 賊 丨 删 ，叫ぬ） 山 10 

ヴ UTSP ミ ITE0 ,<X,Y),11,0 rPUTSPRITEl ,<KX,KY),6,1 : KP«0 : PP»d 

3vS  ぼ： ％ぼ= ば0 RI=0TO17:P ⑴〜 け- SEX>  =■ 

380  /  GAME1 

1 ，254 * S0UND8 ,13s0NI NTERVAL= 1 0GOSUB 1420:1 NTERVAL  ON 
4101 FTURN*1 THENGOTO430ELSEGOTO450 

=: ぽ? =ミ;搵= 亂 □N!TURN=TURN.-1!SOTO410 
GOSUBl^GD^I^13*0  !G0SUBUS0  !IFP<FLAB> THEN530ELSE460 


DORSS 


490  S0UND7,&B1 11 101 1 1 sS0UND8,&B 00011101 : SOUND 13,2: S0UND6 , 50 

500  LINE<24, 8)-(215,167) ,4,BF 

510  PUTSPRITE0, (X,Y> ,11 ,0 

520  BOTO420 

530  •  WIN 

540  LINE<24, 8)-(215,167) ,6,BF 

550  FORI=0TO5sSQUNDI ,0 :NEXT :S0UND7 ,248 

560  PUTSPRITE1 , <X-24,Y) ,3,2 

570  Z1$="T1 20S 1 3M1 00  し 1 204CCCC2 . CCCC2 . CCCE4EEEE4EEEG4GGGG4GGG " 

580  Z2$= T 1 2®S  1 3M 1 13¢  し 1 203R2CEG04C4R203CEGD4C4R203CEG04C4RC403CEG04C4CEG" 

590  Z3 和" T120S13M100  し 1204 RRRRRRRRRC4CCCC4CCCE4EEEE4EEE" 

600  Z 4$= " し 1 2Q5C204B4 ■ F#8A4GR6FR6DR6 し 32CDCDCDCD し 24CDC し 1 603804 CM 
610  Z5$=" E2D#4 . D#8E403BR6AR6AR6G2 " 

620  Z6$= " 03A2B2E4ER6FR6FR6E2 " 

630  Z7$«="L1 2DR603GR6L8E02G03CE604CEG " 

640  Z8 拿 ="GR6GR 604 El" 

650  Z9»="FR6FR6G1M 
660  ZA$=" E4D8.E1 6D2C2" 

670  ZB$=HA4A4G2G2" 

680  ZC«*"F4F4F2E2" 

690  PLAY  Z 1 拿, 12%  ,Z3«：  PLAYZ4$,  Z5$,  Z6$  :  PLAYZ7^,  Z8 多 ,Z9*:  P し  A  Y  ,  Z5 本, Z6 多  _*PLA  Y  Z  A 多 , ZB 拿, 

700  PUTSPRITE2, (88,56) , 1 ,3 :PUTSPRITE3 , ( 120 ,56) ,1 ,4 :PUTSPRITE4 , (88 ,88) ,1 ,7sPUTSPR 

ITE5,< 120,88) ,1，日 

710  WB=&H66 : GOSUB1240 

720  BOTO840 

730  '  BEATEN 

740  LINE(24, 8)-(215,167) ,11 ,BF 
750  PUTSPRITE1 , (KX-24,KY) ,3,2 
760  PUTSPRITE0,(KX,KY) ,6,1 
770  S0UND7 , 255s S0UND8 ,13: S0UND9 , 1 3 

780  AZ 拿 = V 1 3T240L8O4BBB-FF#AA#BAA#O5DD#FF#FDD#FF#AA#BAA#O<bDD#F#16M 
790  AY^="V1 3T240L8O4RF#DD#O3BA#O4DD#DD3BA#AA#AFF#DD#O2BA#ABA#FF#D#16" 

日 00  S0UND7 ,252  sPLAYAZ^ ,AY$ 

810  PUTSPRITE2, (88,56) ,1 ,3 sPUTSPRITE3 , ( 120 ,56) , 1 ,4 :PUTSPRITE4 , (88 ,88) ,1 ,9sPUTSPR 
I TE5, (120,88) ,1,10 
820  WB=&HBB :6OSUB1240 
830  IFPLAY(0)THEN830 

840  PRESET <16, 180) sPRINT#l , "<PUSH  Space-Key  to  Start >n 
850  A^USRl (0) : IFPEEK (&HEA75) < >5THEN850 
860  BOTO270 


❿ 


DOORS 


900  ONZGDTO920 , 930, 940 , 950, 960 

920  X=X-(N0TX>183) *8 s 60101020 

930  X=X+ (N0TX<25) *8 : GOTO1020 

940  Y=Y+ (N0TY<9) *8  SGOTO1020 

950  Y=Y- <N0TY  >134) *8 : GOTO 1020 

960  IFNOT ( ( (X=240RX=184) AND( ( Y-8) MOD32=0) )C 

970  FORI=0TO17 r IFX* ( Y-l ) =F ( I ) THENFLA6=I  : NEX 
980  RETURN 

990  PLA Y " 1 32o4g+ag+gg+o5c+ed+c+d+c+cc+eg+ " 
1000  SCREENS  SPRINT " Now  you've  tried  to  open 


<  (Y=80RY=136) AND( (X+8) M0D32=®) 


1040  IF (KX=DX) AND (KY«DY ) THEN1090 
1050  KX=KX+ (KX >DX ) *8 - (KX<DX ) *8 
1®60  KY«KY+ (KY >DY ) *8 - (KY<DY ) *8 
1070  PUTSPRITE1,(KX,KY) ,6,1 
1080  RETURN 

1090  PUTSPRITE1,(KX,KY) ,13,1：G0SUB 


3  LINE(24,8)-(215,167) ,15,BF 
8  S0UND7 B 11110111  sSOUNDB  ,8<B0 
8  LINE(24, 8)-(215,167) ,4  ,BF 


,0  KD=INT (RND(1)*18) :IFKF(KD) THEN 1150 
RESTORE : FORI*0TOKD : READDX ,DY : next 
r0  RETURN 

>0  ，  KNOCKING  OPERATION 
切  INTERVAL  STOP: SOUND 7,254 
10  SOUND0,0: SOUND  1 , 0 
0  PLAY-V13" s PLAY " 12400582 M5000A4F2 " 

0  IFPLAY(0) THEN 1220 
10  RETURN 
0  7  HADA-SUB 

®  A$=  "  CC33CC33CC33  "  :  :  A$=A$+A$+A$-f-A$ 

?  ^RJ：?IO14!POKE&HE900^96!POKE&HE901 ,1 ：A*=USR5(A^) : NEXT 
0  A 和 9F"  :  A$=A^+A#  :A$=A$+A^  s  At=A$：+AS：  ：A$=A*+A$  :  A$=A$+A^+A^ 


DOORS 


3  FOR  I  =9T0 1 4  s  POKE8<HE900 , 96 :  PGKE8<HE9lZi  1 , 1+32  :At=USR5  (A^)  :  NEXT 
9  VPOKE&H2E00 + 1 02 , WB : VPOKE&H2E00+ 103,WB 
Zl  VPOKE&H2E00 + 1 43 ， WB :  VPOKE&H2E00+ 101 ,WB 
9  RETURN 
0  7  BGM-subr . 

2t  DIMM®  (90)  ,M1 (90) 

0  FQ#=55:FA#=2^(1/12) sFC#= 199670®# 

2t  FORI=9TO90 sTP#=FC#/ 16/FQ# : M0(I) =TP#M0D256 sMl (I) =TP¥256 : FQ=FQ#*FA# : NEXT 
0  S0UND7 , 248: S0UND8 ,13: SOUND0 , ® : SOUND 1 ,0 
0  RESTORE 1 38® : ON I NTERVA し = 1 0GOSUB1 420 

0  DIMMA(31>  ,MB<31)  sFORI=0TO31 : READX :MA < I ) =M(fl ( X )  :MB(I)=M1 (X) sNEXT 
0  DATA43,45,47 ,48,50,49,5® ,47,48,30 ,52,53,55,54 ,55,52 
0  DATA53,57,50,53 ,47,50,43,47,48,52 ,43,48,40 ,43,36,40 
0  11=31 s RETURN 
0  11=11+1 sIFII=32THENI 1=® 

0  SOUND® tMA(II)  : SOUND 1 ,MB(II)  : RETURN 
0  STOP 


a  DATA  12,233 ,42 ,73 , 128 , 126 ,214 ,48 

B  DATA  254,16 ,56, 2, 214, 7, 35, 7, 7, 7, 7 ,79, 126, 214, 48, 254,1 
Zl  DATA  177 ,235 ,42 ,0 ,233 ,119,35,34  ,0 ,233 ,19,235,16,218,2 


1 550  DAT A 000 0 1 ACB3F471 3EB22 日 CE92 A 00007 E0000D630FE 1 03802 D 60723070707074 F7E 0000063 


1600  GOSUB1760 

1610  X=24 : Y=8  sKX=184 :KY=136 

1620  Q=&H 1800+35 sFORI=0TQ4 sVP0KEQ+I*4*32 ,2 : VPOKEQ+ ( I 
1630  F0RI  =  1T05  sVP0KEQ+I*4  , 2  s  VPOKEQ+ 1 *4+608 , 2  -.NEXT 
1640  RETURN 
1650  '  MIYUKI-UP 

1 660  POKE&HE900 , &H60  s  POKE&HE901 , &H38 s RESTORE 1 680 


DOORS 


1670  FOR I =0TO8  s READA^  s  A*=USR5  <  At )  : NEXTsRETURN 

?^^^F3F7FFFFFFFFFFFFf：FFFFFFFFFF7FFFFFFFFFFFFFFFFFFFFFFFFFFFF7F7F3 
1690  DAT AFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8FCFEFEFFFFFFFFFFFFFFFFFFFFFEFE 
1700  DAT A7D 78383 C 1 C 1 C3C3C3C3E1E 1 F0F0F0700A0A0E0C 000080800 1 200000 C80E0E0F3 
1710  DAT A5B5 171610101 0303040 F0F1 F2F4F8F0FFEFCFCFCFCFEFEFFFFFFFFFEFCF8F0C0 
DATA 7078393 C1C1 C3C3C3C3E 1 E 1 F0F0F 0700E0F0 1 000000 日 0800 1 1 0E000C80E0E0F3 
DATA7BF 1 日 90 10101 0303070 F0F1F2F 4F8F0FFEFCFCFCFCFEFEFFFFFFFFFEFCF8F0C0 

口 調 ぽ==;蹀= 雖鹊 謅黠 

1760  RESTORE  1780:  POKE&HE900 ， 0  •_  POKE&HE90 1 ， &H38 
1 770  FOR I =0TQ2 : READA* : A$=USR5 < A$ )  : NEXT: RETURN 

00  =HS======== ■喆 

?2®®  REs?SR^fl4rFDFCEC6024242®22301B0C07F0F8FCFEFEFFEF07474303070E9C20C0 


1810  RESTORE 1840 
1 820  POKE&HE900,0： POKE&HE90 1 ， &HEA 
1 830  READAt : A$-USR4 (A$) : GOTO 1 830 


i^CB^2B^05783275EftC9^00F2F"SDlC7i97D792?7?!i9l?I^83281005CB6F2S0B05CB672M 

3C398EATA47EACD96EA215AEACD96EACDAE®0D8C7B520FBC900ei00600047E8®CDA2007ES0FE0DC82 


1890  RETURN 
1900  ********************* 
1910  * 

1920  *  PROGRAM  sT .NOGUCHI 


1930  * 

1940  *  GRAPHIC  DATAsK.TAKASAKI  * 
1950  *  «. 
1960  *  (C) 1984  NEPTUNE-SOFT  * 
1970  *  * 
1980  *************************** 


(以上 1980 行まで） 


